home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / muicd.lha / mui_cd_player / MUI_CD_Player.install < prev    next >
Text File  |  1998-05-19  |  10KB  |  390 lines
  1. ; MUI_CD_Player Installer script
  2.  
  3. (procedure P_DEVICEINFO
  4.   (cat #dev (getenv "TSTDEV_DEVICE") "\n" 
  5.        #unit (getenv "TSTDEV_UNIT") "\n"
  6.        #devtype (getenv "TSTDEV_DEVICETYPE") "\n"
  7.        #commandset (getenv "TSTDEV_COMMANDSET") "\n"
  8.        #vendor (getenv "TSTDEV_VENDOR") "\n"
  9.        #product (getenv "TSTDEV_PRODUCT") "\n"
  10.        #revision (getenv "TSTDEV_REVISION")
  11.   )
  12. )
  13.  
  14. (procedure P_FINDBYVOLUME #userlevel
  15.   (if (= #userlevel 0)
  16.     (set #ret (run "testdevice CD0: volume setvar"))
  17.     (set #ret (run (cat "testdevice " (askstring (prompt #entercdname) (help @askstring-help) (default "CD0:")) " volume setvar")))
  18.   )
  19.  
  20.   (if (= #ret 0)
  21.     (if (= (getenv "TSTDEV_DEVICETYPE") "CD-ROM")
  22.       (if (< #userlevel 2)
  23.         (set #goon 1)
  24.         (set #goon 
  25.           (askbool 
  26.             (prompt
  27.               (cat #found "\n\n" (P_DEVICEINFO) "\n\n\n" #isok)
  28.             )
  29.             (help @askbool-help)
  30.             (default 1)
  31.           )
  32.         )
  33.       )  
  34.       (if (= #userlevel 0)
  35.         (set #goon 0)
  36.         (set #goon
  37.           (askbool 
  38.             (prompt
  39.               (cat #foundnotcd "\n\n" (P_DEVICEINFO) "\n\n\n" #isok)
  40.             )
  41.             (help @askbool-help)
  42.             (default 1)
  43.           )
  44.         )  
  45.       )
  46.     )
  47.     ((set #goon 0) (message #notfound (all)))
  48.   )
  49. )
  50.  
  51. (procedure P_FINDBYDEVICE
  52.   (
  53.     (set #name
  54.       (cat "testdevice NAME=" 
  55.         (askstring (prompt #findbydev) (help @askstring-help)
  56.         (default "atapi.device"))
  57.         " "
  58.         (askstring (prompt #unitnum) (help @askstring-help)
  59.         (default ""))
  60.         " setvar"
  61.       )
  62.     )
  63.     (working #search)
  64.     (set #ret (run #name))
  65.     (if (= #ret 0)
  66.       (if (< @user-level 2)
  67.         (set #goon 1)
  68.         (set #goon 
  69.           (askbool 
  70.             (prompt
  71.               (cat #found "\n\n" (P_DEVICEINFO) "\n\n\n" #isok)
  72.             )
  73.             (help @askbool-help)
  74.             (default 1)
  75.           )
  76.         )  
  77.       )
  78.       (set #goon 0)
  79.     )
  80.   )
  81. )
  82.  
  83. (procedure P_CONFIGURECD
  84.   (working #search)
  85.  
  86.   (P_FINDBYVOLUME @user-level)
  87.  
  88.   (if (= #goon 0)
  89.     (if (= @user-level 0)
  90.       (P_FINDBYVOLUME 1)
  91.     )
  92.   )
  93.  
  94.   (if (= #goon 0)
  95.     (P_FINDBYDEVICE)
  96.   )
  97.  
  98.   (if (= #goon 0) (abort #notfound))
  99.   
  100.   (tooltype
  101.     (dest (tackon @default-dest "MUI_CD_Player"))
  102.     (settooltype "DEVICE" (getenv "TSTDEV_DEVICE"))
  103.     (settooltype "UNIT" (getenv "TSTDEV_UNIT"))
  104.     (settooltype "LIBRARY"
  105.       (if (= (getenv "TSTDEV_COMMANDSET") "CD32") "CDPlayers/cddevplay.library" "CDPlayers/atapiplay.library")
  106.     )
  107.   )
  108. )
  109.  
  110. (procedure P_COPYICON #filename
  111.   (if (exists (tackon @default-dest #filename))
  112.     (if (NOT (exists (tackon @default-dest (cat #filename ".info"))))
  113.       (copyfiles
  114.         (prompt #copying)
  115.         (source (cat #filename ".info"))
  116.         (dest @default-dest)
  117.         (help @copyfiles-help)
  118.       )
  119.     )
  120.   )
  121. )
  122.  
  123. (procedure P_COPYDIR #directory
  124.   (copyfiles
  125.     (prompt #copying)
  126.     (source #directory)
  127.     (all)
  128.     (dest (tackon @default-dest #directory))
  129.     (help @copyfiles-help)
  130.   )
  131. )
  132.  
  133. (procedure P_COPYPLAYER #player
  134.   (copylib
  135.     (prompt #copying)
  136.     (source (tackon "CDPlayers/" #player))
  137.     (dest (tackon @default-dest "CDPlayers"))
  138.     (help @copylib-help)
  139.     (if (= @user-level 2) (confirm))
  140.   )
  141. )
  142.  
  143. (procedure P_MAKEDIR #directory
  144.   (if (NOT (exists (tackon @default-dest #directory)))
  145.     (makedir (tackon @default-dest #directory))
  146.   )
  147. )
  148.  
  149. (welcome)
  150.  
  151. (set #language 
  152.   (if (= @language "polski") 1 
  153.     (if (= @language "deutsch") 2 0
  154.     )
  155.   )
  156. )
  157.  
  158. (select #language
  159.   (
  160.     (set #search "Searching for CD-ROM...")
  161.     (set #found "Found a CD-ROM drive:")
  162.     (set #dev "Device: ")
  163.     (set #unit "Unit: ")
  164.     (set #vendor "Vendor: ")
  165.     (set #product "Product: ")
  166.     (set #revision "Revision: ")
  167.     (set #devtype "Device type: ")
  168.     (set #commandset "Command set: ")
  169.     (set #foundnotcd "Found a device which is probably not a CD-ROM:")
  170.     (set #isok "Use this device ?")
  171.     (set #notfound "Could not find a CD-ROM")
  172.     (set #entercdname "Enter the name of your CD-ROM\n(eg. CD0, CD1, CDR etc.)")
  173.     (set #findbydev "Let's try to find the CD-ROM differently.\nEnter the device name:")
  174.     (set #unitnum "Enter unit number:\n(or leave it empty if you don't know the number)")
  175.  
  176.     (set #askdir "Select where MUI_CD_Player drawer should be created")
  177.     (set #installprompt "Please confirm if you'd like to install these")
  178.     (set #eng "English guide")
  179.     (set #pol "Polish locale & guide")
  180.     (set #ger "German locale & guide")
  181.     (set #cds "Additional CDs in text files")
  182.     (set #copying "Copying files...")
  183.     (set #imagebutprompt "Which image buttons would you like to install ?")
  184.     (set #smbw "small, black&white")
  185.     (set #smcol "small, 16 colors")
  186.     (set #bgbw "big, black&white")
  187.     (set #bgcol "big, 16 colors")
  188.     (set #askconf "Would you like to configure your CD-ROM now ?")
  189.   )
  190.   (
  191.     (set #search "Szukam CD-ROMu...")
  192.     (set #found "Znalazîem CD-ROM:")
  193.     (set #dev "Urzâdzenie: ")
  194.     (set #unit "Nr: ")
  195.     (set #vendor "Producent: ")
  196.     (set #product "Produkt: ")
  197.     (set #revision "Wersja: ")
  198.     (set #devtype "Typ urzâdzenia: ")
  199.     (set #commandset "Zestaw komend: ")
  200.     (set #foundnotcd "Znalazîem urzâdzenie, które prawdopodobnie nie jest CD-ROMem:")
  201.     (set #isok "Czy mam uûyê tych danych ?")
  202.     (set #notfound "Nie mogë znaleúê CD-ROMu")
  203.     (set #entercdname "Wpisz nazwë CD-ROMu\(czyli np. CD0, CD1, CDR itp.)")
  204.     (set #findbydev "Spróbujmy znaleúê CD-ROM w inny sposób.\nWpisz nazwë urzâdzenia:")
  205.     (set #unitnum "Wpisz numer urzâdzenia:\n(albo pozostaw to pole puste jeôli nie znasz numeru)")
  206.  
  207.     (set #askdir "Wskaû miejsce gdzie mam utworzyê katalog MUI_CD_Player")
  208.     (set #installprompt "Proszë zaznaczyê co chciaîbyô zainstalowaê")
  209.     (set #eng "Angielskâ dokumentacjë")
  210.     (set #pol "Polskâ dokumentacjë i locale")
  211.     (set #ger "Niemieckâ dokumentacjë i locale")
  212.     (set #cds "Dodatkowe kompakty w plikach tekstowych")
  213.     (set #copying "Kopiujë pliki...")
  214.     (set #imagebutprompt "Jakie przyciski chciaîbyô zainstalowaê ?")
  215.     (set #smbw "maîe, czarno-biaîe")
  216.     (set #smcol "maîe, 16 kolorów")
  217.     (set #bgbw "duûe, czarno-biaîe")
  218.     (set #bgcol "duûe, 16 kolorów")
  219.     (set #askconf "Czy chciaîbyô teraz skonfigurowaê Twój CD-ROM ?")
  220.   )
  221.   (
  222.     (set #search "Suche nach einem CD-ROM...")
  223.     (set #found "Es wurde ein CD-ROM Laufwerk gefunden:")
  224.     (set #dev "Device: ")
  225.     (set #unit "Unit: ")
  226.     (set #vendor "Hersteller: ")
  227.     (set #product "Produkt: ")
  228.     (set #revision "Revision: ")
  229.     (set #devtype "Geräte-Typ: ")
  230.     (set #commandset "Befehlssatz: ")
  231.     (set #foundnotcd "Es wurde ein Gerät gefunden, das vermutlich kein CD-ROM ist:")
  232.     (set #isok "Dieses Gerät verwenden?")
  233.     (set #notfound "Ein CD-ROM konnte nicht gefunden werden")
  234.     (set #entercdname "Geben Sie den Namen Ihres CD-ROM ein\n(z.B. CD0, CD1, CDR etc.)")
  235.     (set #findbydev "Wir versuchen jetzt, das CD-ROM auf eine andere Weise zu finden.\nGeben Sie den Device-Namen ein:")
  236.     (set #unitnum "Geben Sie die Unit-Nummer ein:\n(oder lassen Sie das Feld leer, falls Sie die Nummer nicht wissen)")
  237.  
  238.     (set #askdir "Wählen Sie, wo die MUI_CD_Player-Schublage erzeugt werden soll")
  239.     (set #installprompt "Please confirm if you'd like to install these")
  240.     (set #eng "Englische Anleitung")
  241.     (set #pol "Polnische Übersetzung und Anleitung")
  242.     (set #ger "Deutsche Übersetzung und Anleitung")
  243.     (set #cds "Zusätzliche CDs in Text-Dateien")
  244.     (set #copying "Kopiere Dateien...")
  245.     (set #imagebutprompt "Welche Symbole für die Knöpfe möchten Sie installieren?")
  246.     (set #smbw "klein, schwarz und weiß")
  247.     (set #smcol "klein, 16-farbig")
  248.     (set #bgbw "groß, schwarz und weiß")
  249.     (set #bgcol "groß, 16-farbig")
  250.     (set #askconf "Möchten Sie MUI CD jetzt für Ihr CD-ROM konfigurieren?")
  251.   )
  252. )
  253.  
  254.  
  255. (if (> @user-level 0)
  256.   (set #destdir
  257.     (askdir
  258.       (prompt #askdir)
  259.       (help @askdir-help)
  260.       (default @default-dest)
  261.     )
  262.   )
  263.   (set #destdir @default-dest)
  264. )
  265.  
  266. (P_MAKEDIR "MUI_CD_Player")
  267. (if (NOT (exists (tackon @default-dest "MUI_CD_Player.info")))
  268.   (copyfiles
  269.     (prompt #copying)
  270.     (source "/MUI_CD_Player.info")
  271.     (dest @default-dest)
  272.     (help @copyfiles-help)
  273.   )
  274. )
  275.  
  276. (set @default-dest (tackon #destdir "MUI_CD_Player"))
  277.  
  278. (P_MAKEDIR "Programs")
  279. (P_MAKEDIR "Disks")
  280. (P_MAKEDIR "Images")
  281. (P_MAKEDIR "Catalogs")
  282.  
  283. (set opts
  284.   (if (> @user-level 0)
  285.     (askoptions
  286.       (prompt #installprompt)
  287.       (help @askoptions-help)
  288.       (choices #eng #pol #ger #cds)
  289.       (default (BITOR (shiftleft 1 #language) 9))
  290.     )
  291.     (BITOR (shiftleft 1 #language) 9)
  292.   )
  293. )
  294.  
  295. (set opts2
  296.   (if (> @user-level 0)
  297.     (askoptions
  298.       (prompt #imagebutprompt)
  299.       (help @askoptions-help)
  300.       (choices #smbw #smcol #bgbw #bgcol)
  301.       (default 15)
  302.     )
  303.     15
  304.   )
  305. )
  306.  
  307. (if (IN opts 0)
  308.   (copyfiles
  309.     (prompt #copying)
  310.     (source "MUI_CD_Player.guide")
  311.     (dest @default-dest)
  312.     (help @copyfiles-help)
  313.     (infos)
  314.   )
  315. )
  316.  
  317. (if (IN opts 1)
  318.   (
  319.     (copyfiles
  320.       (prompt #copying)
  321.       (source "MUI_CD_Player.pl.guide")
  322.       (dest @default-dest)
  323.       (help @copyfiles-help)
  324.       (infos)
  325.     )
  326.     (P_COPYDIR "catalogs/polski")
  327.   )
  328. )
  329.  
  330. (if (IN opts 2)
  331.   (
  332.     (copyfiles
  333.       (prompt #copying)
  334.       (source "MUI_CD_Player.de.guide")
  335.       (dest @default-dest)
  336.       (help @copyfiles-help)
  337.       (infos)
  338.     )
  339.     (P_COPYDIR "catalogs/deutsch")
  340.   )
  341. )
  342.  
  343. (if (IN opts 3) (P_COPYDIR "Texts"))
  344.  
  345. (if (IN opts2 0) (P_COPYDIR "Images/small"))
  346. (if (IN opts2 1) (P_COPYDIR "Images/deluxe_small"))
  347. (if (IN opts2 2) (P_COPYDIR "Images/big"))
  348. (if (IN opts2 3) (P_COPYDIR "Images/deluxe_big"))
  349.  
  350. (P_COPYPLAYER "atapiplay.library")
  351. (P_COPYPLAYER "cddevplay.library")
  352.  
  353. (copyfiles
  354.   (prompt #copying)
  355.   (source "")
  356.   (choices "MUI_CD_Player" "CD_Manager" "CD_Editor")
  357.   (dest @default-dest)
  358.   (help @copyfiles-help)
  359.   (if (= @user-level 2) (confirm))
  360. )
  361.  
  362. (copyfiles
  363.   (prompt #copying)
  364.   (source "")
  365.   (choices "testdevice" "Configure CD-ROM")
  366.   (dest @default-dest)
  367.   (help @copyfiles-help)
  368.   (if (= @user-level 2) (confirm))
  369. )
  370.  
  371. (P_COPYICON "MUI_CD_Player")
  372. (P_COPYICON "CD_Manager")
  373. (P_COPYICON "Configure CD-ROM")
  374.  
  375. (if (= @user-level 0)
  376.   (P_CONFIGURECD)
  377.   (if
  378.     (askbool 
  379.       (prompt #askconf)
  380.       (help @askbool-help)
  381.       (default 1)
  382.     )
  383.     (P_CONFIGURECD)
  384.   )
  385. )
  386.  
  387. (run "avail >nil: flush")
  388.  
  389. (exit)
  390.